home *** CD-ROM | disk | FTP | other *** search
/ The Idea Engine / The Idea Engine.iso / pc / white6.dir / 00047_Script_47 < prev    next >
Text File  |  1995-10-16  |  1KB  |  65 lines
  1. --on startMovie
  2. --  global printer
  3. --  
  4. --  if objectP(printer) = false then
  5. --    openxlib "PrintOMatic Lite XObj"
  6. --    put PrintOMatic_Lite(mNew) into printer
  7. --    printer(mRegister,"13054542-911")
  8. --    closexlib "PrintOMatic Lite XObj"
  9. --  end if
  10. --  
  11. --  set castext = 1
  12. --  
  13. --  if not objectP(printer) then
  14. --    
  15. --    Alert "There is no currently selected printer. Printing features will be disabled."┬
  16. --&return&return&"Error code = "&string(printer) 
  17. --    
  18. --  end if
  19. --  
  20. --end startMovie
  21. --
  22. --
  23. --on stopMovie
  24. --  global printer
  25. --  
  26. --  if objectp(printer) then printer(mDispose)
  27. --  
  28. --end stopMovie
  29. --
  30. --on closeWindow
  31. --  stopmovie
  32. --  tell the stage to cleanupMIAW
  33. --end closeWindow
  34. --
  35. --
  36. --
  37. --
  38. --
  39. --on printext
  40. --  global printer
  41. --  
  42. --  if not objectP(printer) then
  43. --    Alert "There is no currently selected printer. Printing features are disabled."
  44. --  else
  45. --    cursor 4
  46. --    put the mouseCast into castext
  47. --    
  48. --    put the text of cast castext into txt
  49. --
  50. --    
  51. --    printer(mSetTextFont,"courier")
  52. --    printer(mSetTextSize,10)
  53. --    printer(mSetTextStyle,"normal")
  54. --    printer(mAppendText,line 1 to (the number of lines in txt) of txt)
  55. --    
  56. --    cursor -1
  57. --    
  58. --    if printer (mDoJobSetup) = true then
  59. --      updatestage
  60. --      printer(mPrint)
  61. --    end if
  62. --    
  63. --  end if
  64. --  
  65. --end